home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPCP02.ZIP / PWRBALL2 / PWRBALL2.PPD < prev    next >
Encoding:
Text File  |  1995-11-15  |  7.0 KB  |  279 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.10 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     BYTE       VAR001
  11.     BYTE       VAR002
  12.     BYTE       VAR003
  13.     BYTE       VAR004
  14.     BYTE       VAR005
  15.     BYTE       VAR006
  16.     BYTE       VAR007
  17.     STRING     VAR008
  18.     BYTE       VAR009
  19.     BYTE       VAR010
  20.     WORD       VAR011
  21.     STRING     VAR012
  22.     STRING     VAR013
  23.     INTEGER    VAR014
  24.     INTEGER    VAR015
  25.     INTEGER    VAR016
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     FOPEN 2,PPEPATH()+PPENAME()+".CFG",O_RD,S_DN
  30.     FGET 2,VAR012
  31.     FGET 2,VAR013
  32.     LET VAR001=1+RANDOM(44)
  33.  
  34. :LABEL000
  35.     LET VAR002=1+RANDOM(44)
  36.     IF (!(VAR001=VAR002)) GOTO LABEL001
  37.     GOSUB LABEL000
  38.  
  39. :LABEL001
  40.     LET VAR003=1+RANDOM(44)
  41.     IF (!(VAR001=VAR003)) GOTO LABEL002
  42.     GOSUB LABEL001
  43.     GOTO LABEL003
  44.  
  45. :LABEL002
  46.     IF (!(VAR002=VAR003)) GOTO LABEL003
  47.     GOSUB LABEL001
  48.  
  49. :LABEL003
  50.     LET VAR004=1+RANDOM(44)
  51.     IF (!(VAR001=VAR004)) GOTO LABEL004
  52.     GOSUB LABEL003
  53.     GOTO LABEL006
  54.  
  55. :LABEL004
  56.     IF (!(VAR002=VAR004)) GOTO LABEL005
  57.     GOSUB LABEL003
  58.     GOTO LABEL006
  59.  
  60. :LABEL005
  61.     IF (!(VAR003=VAR004)) GOTO LABEL006
  62.     GOSUB LABEL003
  63.  
  64. :LABEL006
  65.     LET VAR005=1+RANDOM(44)
  66.     IF (!(VAR001=VAR005)) GOTO LABEL007
  67.     GOSUB LABEL006
  68.     GOTO LABEL010
  69.  
  70. :LABEL007
  71.     IF (!(VAR002=VAR005)) GOTO LABEL008
  72.     GOSUB LABEL006
  73.     GOTO LABEL010
  74.  
  75. :LABEL008
  76.     IF (!(VAR003=VAR005)) GOTO LABEL009
  77.     GOSUB LABEL006
  78.     GOTO LABEL010
  79.  
  80. :LABEL009
  81.     IF (!(VAR004=VAR005)) GOTO LABEL010
  82.     GOSUB LABEL006
  83.  
  84. :LABEL010
  85.     LET VAR006=1+RANDOM(44)
  86.     FGET 2,VAR016
  87.     FCLOSE 2
  88.     LET VAR011=YEAR(DATE())
  89.     LET VAR009=MONTH(DATE())
  90.     LET VAR010=DAY(DATE())
  91.     LET VAR007=DOW(DATE())
  92.     IF (!(VAR007=3)) GOTO LABEL011
  93.     GOTO LABEL013
  94.  
  95. :LABEL011
  96.     IF (!(VAR007=6)) GOTO LABEL012
  97.     GOTO LABEL013
  98.  
  99. :LABEL012
  100.     GOTO LABEL014
  101.  
  102. :LABEL013
  103.     IF (TIME()>70200) GOTO LABEL032
  104.  
  105. :LABEL014
  106.     IF (!(VAR007<4)) GOTO LABEL015
  107.     LET VAR008=" @X07WEDNESDAY "
  108.     GOTO LABEL016
  109.  
  110. :LABEL015
  111.     LET VAR008=" SATURDAY "
  112.  
  113. :LABEL016
  114.     IF (!(VAR007=3)) GOTO LABEL017
  115.     GOTO LABEL019
  116.  
  117. :LABEL017
  118.     IF (!(VAR007=6)) GOTO LABEL018
  119.     GOTO LABEL019
  120.  
  121. :LABEL018
  122.     LET VAR007=VAR007+1
  123.     LET VAR010=VAR010+1
  124.     GOTO LABEL016
  125.  
  126. :LABEL019
  127.     IF (!(VAR011=1996)) GOTO LABEL020
  128.     IF (!(VAR009=2)) GOTO LABEL021
  129.     IF (VAR010=29) GOTO LABEL028
  130.     IF (!(VAR010>29)) GOTO LABEL020
  131.     LET VAR009=VAR009+1
  132.     LET VAR010=VAR010-29
  133.     GOTO LABEL028
  134.  
  135. :LABEL020
  136.     IF (!(VAR009=2)) GOTO LABEL021
  137.     IF (!(VAR010>28)) GOTO LABEL028
  138.     LET VAR009=VAR009+1
  139.     LET VAR010=VAR010-28
  140.     GOTO LABEL028
  141.  
  142. :LABEL021
  143.     IF (!(VAR010>=31)) GOTO LABEL028
  144.     IF (!(VAR009=4)) GOTO LABEL022
  145.     GOTO LABEL026
  146.  
  147. :LABEL022
  148.     IF (!(VAR009=6)) GOTO LABEL023
  149.     GOTO LABEL026
  150.  
  151. :LABEL023
  152.     IF (!(VAR009=9)) GOTO LABEL024
  153.     GOTO LABEL026
  154.  
  155. :LABEL024
  156.     IF (!(VAR009=11)) GOTO LABEL025
  157.     GOTO LABEL026
  158.  
  159. :LABEL025
  160.     GOTO LABEL027
  161.  
  162. :LABEL026
  163.     LET VAR009=VAR009+1
  164.     IF (VAR009=13) LET VAR011=VAR011+1
  165.     IF (VAR009=13) LET VAR009=1
  166.     LET VAR010=VAR010-30
  167.     GOTO LABEL028
  168.  
  169. :LABEL027
  170.     IF (VAR010=31) GOTO LABEL028
  171.     LET VAR009=VAR009+1
  172.     IF (VAR009=13) LET VAR011=VAR011+1
  173.     IF (VAR009=13) LET VAR009=1
  174.     LET VAR010=VAR010-31
  175.  
  176. :LABEL028
  177.     LET VAR014=CRC32(0,VAR012)
  178.     LET VAR015=CRC32(0,VAR013)
  179.     LET VAR011=RIGHT(VAR011,2)
  180.     CLS 
  181.     PRINTLN ""
  182.     PRINTLN ""
  183.     PRINTLN "@X0F               @X0AThanks For Calling @X0E@FIRST@       @X0AHope You Get Lucky!!"
  184.     PRINTLN ""
  185.     PRINTLN "@X08                     POWERBALL PICK FROM LOWER LEVEL SOFTWARE   "
  186.     PRINTLN "@X0F            @X1F┌──────────────────────────────────────────────────────┐"
  187.     PRINTLN "@X0F            @X1F│                                                      │"
  188.     PRINTLN "@X0F            @X1F│   @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐ @X10▄  @X1F│"
  189.     PRINTLN "@X0F            @X1F│   @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│ @X10█  @X1F│"
  190.     PRINTLN "@X0F            @X1F│   @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘ @X10█  @X1F│"
  191.     PRINTLN "@X0F            @X1F│    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X1F│"
  192.     PRINTLN "@X0F            @X1F└──────────────────────────────────────────────────────┘"
  193.     IF (!(VAR016=(RIGHT(VAR014,3)+RIGHT(VAR015,4)))) GOTO LABEL029
  194.     PRINTLN "@X0D                      REGISTERED TO: @BOARDNAME@                         "
  195.     GOTO LABEL030
  196.  
  197. :LABEL029
  198.     ;PRINTLN "@X8D         ASK YOUR SYSOP TO REGISTER POWERBALL PICK  @X03(ONLY 5 BUCKS MAN!)@X07"
  199.  
  200. :LABEL030
  201.     PRINTLN "@X0F             HERE ARE YOUR LUCKY NUMBERS FOR THE POWERBALL DRAWING"
  202.     PRINTLN "@X0B@POS:24@ON@X8F>>@X0A@POS:31@",VAR008,"@X09@POS:44@",VAR009,"@X08/@X09",VAR010,"@X08/@X09",VAR011
  203.     PRINTLN "@X0E@POS:18@",+VAR001,"  ",+VAR002,"  ",+VAR003,"  ",+VAR004,"  ",+VAR005,"@X07  AND YOUR POWERBALL IS@X0C ",+VAR006
  204.     PRINTLN ""
  205.     PRINTLN ""
  206.     PRINTLN ""
  207.     IF (VAR016=(RIGHT(VAR014,3)+RIGHT(VAR015,4))) GOTO LABEL031
  208.     WAIT 
  209.     END 
  210.  
  211.  
  212. :LABEL031
  213.     FAPPEND 1,PPEPATH()+STRING(VAR009)+"-"+STRING(VAR010)+"-"+STRING(VAR011),O_RW,S_DN
  214.     FPUTLN 1,U_NAME()
  215.     FPUTLN 1,+VAR001,"  ",+VAR002,"  ",+VAR003,"  ",+VAR004,"  ",+VAR005,"  ",+VAR006
  216.     FCLOSE 1
  217.     WAIT 
  218.     END 
  219.  
  220.  
  221. :LABEL032
  222.     IF (VAR007=3) GOTO LABEL033
  223.     IF (VAR007=6) GOTO LABEL034
  224.  
  225. :LABEL033
  226.     LET VAR008=" SATURDAY"
  227.     LET VAR010=VAR010+3
  228.     GOTO LABEL019
  229.  
  230. :LABEL034
  231.     LET VAR008=" WEDNESDAY"
  232.     LET VAR010=VAR010+4
  233.     GOTO LABEL019
  234.  
  235. ;------------------------------------------------------------------------------
  236. ;Statements used:
  237. ;
  238. ;     2 END
  239. ;     1 CLS
  240. ;     2 WAIT
  241. ;    56 GOTO
  242. ;    33 LET
  243. ;    20 PRINTLN
  244. ;    36 IF
  245. ;     1 FOPEN
  246. ;     1 FAPPEND
  247. ;     2 FCLOSE
  248. ;     3 FGET
  249. ;     2 FPUTLN
  250. ;    10 GOSUB
  251. ;
  252. ;Functions used:
  253. ;
  254. ;    12 +
  255. ;    25 +
  256. ;     4 -
  257. ;    31 =
  258. ;     1 <
  259. ;     3 >
  260. ;     1 >=
  261. ;    26 !
  262. ;     5 RIGHT
  263. ;     6 RANDOM
  264. ;     4 DATE
  265. ;     1 TIME
  266. ;     1 U_NAME
  267. ;     1 YEAR
  268. ;     1 MONTH
  269. ;     1 DAY
  270. ;     1 DOW
  271. ;     3 STRING
  272. ;     2 PPEPATH
  273. ;     1 PPENAME
  274. ;     2 CRC32
  275. ;
  276. ;------------------------------------------------------------------------------
  277. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  278. ;------------------------------------------------------------------------------
  279.